home *** CD-ROM | disk | FTP | other *** search
/ .net (French) 1996 December / .net Magazine (FR) - Issue 02 - Dec 1996.iso / Utilpers / SUPERQUE / DATA.2 / FILTERS / PSINIT / GS_ISO_E.PS < prev    next >
Text File  |  1995-11-15  |  2KB  |  54 lines
  1. %    Copyright (C) 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. %    Licensed to Zenographics Inc. (Irvine, California) by Artifex Software Inc.
  3. %    under the OEM Agreement of December 21st, 1993.
  4.  
  5. % Define the ISO Latin-1 encoding vector.
  6. % The first half is the same as the standard encoding,
  7. % except for minus instead of hyphen at code 055.
  8. /ISOLatin1Encoding
  9. StandardEncoding 0 45 getinterval aload pop
  10.     /minus
  11. StandardEncoding 46 82 getinterval aload pop
  12. %*** NOTE: the following are missing in the Adobe documentation,
  13. %*** but appear in the displayed table:
  14. %*** macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
  15. % \20x
  16.     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  17.     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  18.     /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
  19.     /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
  20. % \24x
  21.     /space /exclamdown /cent /sterling
  22.     /currency /yen /brokenbar /section
  23.     /dieresis /copyright /ordfeminine /guillemotleft
  24.     /logicalnot /hyphen /registered /macron
  25.     /degree /plusminus /twosuperior /threesuperior
  26.     /acute /mu /paragraph /periodcentered
  27.     /cedilla /onesuperior /ordmasculine /guillemotright
  28.     /onequarter /onehalf /threequarters /questiondown
  29. % \30x
  30.     /Agrave /Aacute /Acircumflex /Atilde
  31.     /Adieresis /Aring /AE /Ccedilla
  32.     /Egrave /Eacute /Ecircumflex /Edieresis
  33.     /Igrave /Iacute /Icircumflex /Idieresis
  34.     /Eth /Ntilde /Ograve /Oacute
  35.     /Ocircumflex /Otilde /Odieresis /multiply
  36.     /Oslash /Ugrave /Uacute /Ucircumflex
  37.     /Udieresis /Yacute /Thorn /germandbls
  38. % \34x
  39.     /agrave /aacute /acircumflex /atilde
  40.     /adieresis /aring /ae /ccedilla
  41.     /egrave /eacute /ecircumflex /edieresis
  42.     /igrave /iacute /icircumflex /idieresis
  43.     /eth /ntilde /ograve /oacute
  44.     /ocircumflex /otilde /odieresis /divide
  45.     /oslash /ugrave /uacute /ucircumflex
  46.     /udieresis /yacute /thorn /ydieresis
  47. % Make an array on large systems, a packed array on small ones.
  48. 256
  49. vmstatus exch pop exch pop
  50. 100000 ge { array astore readonly } { packedarray } ifelse
  51. def
  52. 1 ISOLatin1Encoding .registerencoding
  53. /ISOLatin1Encoding ISOLatin1Encoding .defineencoding
  54.